www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8(全功能,无限制,完全开源)/Gu_shangjia.asp
<!--#include file="ku_top.asp"--> <% id=request.querystring("guxing")%> <% function title() title="拼客商家" end function %> <div align="center"> <table cellpadding="0" cellspacing="0" width="100"> <tr> <td height="5"></td> </tr> </table> </div> <div align="center"> <table border="0" width="980" height="454" cellpadding="0" cellspacing="0"> <tr> <td height="454" width="740" valign="top"> <div align="center"> <table cellpadding="0" cellspacing="0" width="740" height="452"> <tr> <td height="36" background="Ku_img/News/news_001.JPG"> <table cellpadding="0" cellspacing="0" width="740"> <tr> <td height="20" width="440" valign="top"><div id="dazi"> <p align="left"><b><font color="#0066FF"> 所有拼客商家</font></b></div> </td> <td height="20" width="100" valign="top"> <img border="0" src="pkxx-img/sj03.gif"><a href="Gu_VIPshangjia.asp" title="全部VIP商家">VIP商家</a> </td> <td height="20" width="100" valign="top"> <img border="0" src="pkxx-img/sj02.gif"><a href="Gu_LMshangjia.asp" title="全部联盟商家">联盟商家</a> </td> <td height="20" width="100" valign="top"> <img border="0" src="pkxx-img/sj01.gif"><a href="Gu_PTshangjia.asp" title="全部普通商家">普通商家</a> </td> </tr> </table> </td> </tr> <tr> <td height="396" background="Ku_img/News/news_002.JPG" valign="top"> <div align=center> <table width="730" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td colspan="2"> <table width="730" border="0" align="center" cellpadding="3" cellspacing="1" > <tr> <% sid=request.querystring("guxing") if sid="" then set rs=server.createobject("adodb.recordset") sql="select * from shangjia where shenhe=1" else set rs=server.createobject("adodb.recordset") sql="select * from shangjia where shenhe=1 and class="&sid&"" end if sql=sql&" order by addtime desc" rs.open sql,conn,1,1 dim a Set a=New PageList listLimit=10 '模拟分页一页显示分页数 pageLists=5 '设置分页参数 If rs.BOF or rs.EOF Then %> </tr> <tr bgcolor="#C6E3F4"> <td height="24" align="center" bgcolor="#FFFFFF">此类暂时没有商家!</td> </tr> <% else dim x x=1 '分页循环开始 totalList=rs.recordcount a.InitPara=array(totalList,listLimit,pageLists) a.PageList() rs.pagesize=listLimit page = request("page") If page="" Then page=1 End If rs.absolutepage = page %> <tr> <%for i=1 to rs.pagesize%> <td height="90" width="120" style="border: 1px solid #CECFCE"> <p align="center"> <a href="My_shop.asp?guxing=<%=rs("id")%>" target="_blank"> <img border="0" src="<%if rs("logo")<>"" then%><%=rs("logo")%><%else%>ku_Img/nopic120-90.gif<%end if%>" width="120" height="90"></a> </p> </td> <td width="564"> <div align="left"> <table border="0" width="218" height="90" cellpadding="0" cellspacing="0"> <tr> <td height="20" width="60"><b>商家名</b>:</td> <td height="20" width="150"><a href="My_shop.asp?guxing=<%=rs("id")%>" target="_blank"> <%=Trim(rs("name"))%></a> <!--商家等级 开始--> <% if rs("xinyu")=0 then%> <img border="0" src="pkxx-img/sj01.gif" title="普通商家(本站会员享受9.5折)"> <% end if%> <% if rs("xinyu")=1 then%> <img border="0" src="pkxx-img/sj02.gif" title="联盟商家(本站会员享受9折)"> <% end if%> <% if rs("xinyu")=2 then%> <img border="0" src="pkxx-img/sj03.gif" title="VIP商家(本站会员享受8.5折以下,详见商家公告!)"> <% end if%> <!--商家等级 结束--> </td> </tr> <tr> <td height="20" width="60"><b>联系人</b>:</td> <td height="20" width="150"><%=Trim(rs("username"))%></td> </tr> <tr> <td height="20" width="60"><b>电话</b>:</td> <td height="20" width="150"><%=rs("tel")%></td> </tr> <tr> <td height="20" width="60"><b>地址</b>:</td> <td height="20" width="150"><%=rs("address")%></td> </tr> </table> </div> </td> <% if x mod 2 =0 then%> </tr> <tr> <td height="5" width="640" colspan="2"></td> </tr> <tr align="center" width="320"> <% end if x=x+1 rs.movenext if rs.eof then exit for next end if %> </tr> </table></td> </tr> </form> </table> </div> <% rs.close set rs=nohing %> </td> </tr> <tr> <td height="16" background="Ku_img/News/news_002.JPG" align=center> <%=a.PageInfo%></td> </tr> <tr> <td height="4"> <img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td> </tr> <!--【拼客商家】列表页面-列表信息-下方广告位--> <tr> <td height="8"></td> </tr> <tr> <td><% Call Ku_AD(26) %></td> </tr> <!--【拼客商家】列表页面-列表信息-下方广告位--> </table> </div> </td> <td height="454" width="8"> </td> <td height="454" width="232" valign="top"> <!--#include file="Ku_type/Index_login.asp"--> <!--#include file="Ku_type/sj_kind.asp"--> </td> </tr> </table> </div> <!--#include file="Ku_foot.asp"-->